library(maps)
pdf("/media/Dados/trabalho/doutorado/cpdee/tese/projeto_tese/latex/img/cab10Sol.pdf",pagecentre=TRUE,paper="special",width = 6, height = 5,family="Bookman")
par(mai = c(0, 0, 0, 0),font=2,ps=20)
ynh = c(33.76,39.30,42.34,39.14,39.77,42.38,29.77)
yh = c(41.84,41.48,32.79)
xnh = c(-84.42,-76.61,-71.02,-84.51,-104.87,-83.10,-95.39)
xh = c(-87.68,-81.68,-96.77)
xt = 
c(-84.42+1, 	#1
-76.61+1,	#2
-71.02+1,	#3
-87.68+1,	#4
-84.51+1,	#5
-81.68+1,	#6
-96.77+1,	#7
-104.87+1,	#8
-83.10-1,	#9
-95.39+1)	#10
yt =c(33.76,	#1
39.30,		#2
42.34,		#3
41.84+0.6,	#4
39.14,		#5
41.48+0.6,	#6
32.79,		#7
39.77,		#8
42.38,		#9
29.77)		#10
l = c("1.Atlanta",
"2.Baltimore",
"3.Boston",
"4.Chicago",
"5.Cincinnati",
"6.Cleveland",
"7.Dallas",
"8.Denver",
"9.Detroit",
"10.Houston")
map('usa',proj='azequalarea',lty = 1,lwd=1,col = "grey70")
points(mapproject(list(x = xnh,y = ynh)),col="black",type="p", cex = .8, pch=19)	
points(mapproject(list(x = xh,y = yh)),type="p", cex = 1.3, pch=24, bg="black")	
text(mapproject(list(x = xt,y = yt)),col="black", cex = 0.4, labels = 1:10)
# 1 -- 6
y = c(33.76,41.48)
x = c(-84.42,-81.68)
lines(mapproject(list(x = x,y = y)),type="l")
# 2 -- 6
y = c(39.30,41.48)
x = c(-76.61,-81.68)
lines(mapproject(list(x = x,y = y)),type="l")
# 3 -- 6 
y = c(42.34,41.48)
x = c(-71.02,-81.68)
lines(mapproject(list(x = x,y = y)),type="l")
# 5 -- 6
y = c(39.14,41.48)
x = c(-84.51,-81.68)
lines(mapproject(list(x = x,y = y)),type="l")
# 9 -- 6
y = c(42.38,41.48)
x = c(-83.10,-81.68)
lines(mapproject(list(x = x,y = y)),type="l")
# 10 -- 7
y = c(29.77,32.79)
x = c(-95.39,-96.77)
lines(mapproject(list(x = x,y = y)),type="l")
# 8 -- 7
y = c(39.77,32.79)
x = c(-104.87,-96.77)
lines(mapproject(list(x = x,y = y)),type="l")
# 4 -- 7
y = c(41.84,32.79)
x = c(-87.68,-96.77)
lines(mapproject(list(x = x,y = y)),type="l",cex = .8,lwd=3)
# 6 -- 7
y = c(41.48,32.79)
x = c(-81.68,-96.77)
lines(mapproject(list(x = x,y = y)),type="l",cex = .8,lwd=3)
# 4 -- 6
y = c(41.84,41.48)
x = c(-87.68,-81.68)
lines(mapproject(list(x = x,y = y)),type="l",cex = .8,lwd=3)
dev.off()
